(LAP PRIN SUBR)  
	(CALL 1 (E TERPRI))  
	(CALL 1 (E PRINC))  
	(JCALL 1 (E TERPRI))  
	NIL  
 
 
(LAP RESTARTG0005 SUBR)  
	(CALL 0 (E READ))  
	(CALL 1 (E NCONS))  
	(MOVEI 2 (QUOTE DSK:))  
	(CALL 2 (E XCONS))  
	(MOVEI 2 (QUOTE FOO))  
	(CALL 2 (E XCONS))  
	(JCALL 17 (E INPUT))  
	NIL  
 
(LAP RESTARTG0012 SUBR)  
	(CALL 0 (E READ))  
	(MOVEM 1 (SPECIAL O))  
	(CALL 1 (E NCONS))  
	(MOVEI 2 (QUOTE DSK:))  
	(CALL 2 (E XCONS))  
	(MOVEI 2 (QUOTE BAZ))  
	(CALL 2 (E XCONS))  
	(JCALL 17 (E INPUT))  
	NIL  
 
(LAP RESTARTG0020 SUBR)  
G0021 	(CALL 0 (E TYI))  
	(MOVEM 1 (SPECIAL Y))  
	(MOVE 2 (SPECIAL X))  
	(CALL 2 (E CONS))  
	(MOVEM 1 (SPECIAL X))  
	(MOVEI 2 (QUOTE 12))  
	(MOVE 1 (SPECIAL Y))  
	(CALL 2 (E EQUAL))  
	(JUMPE 1 G0032)  
	(MOVEI 1 (QUOTE T))  
	(JRST 0 G0026)  
G0032  
G0034 	(MOVEI 1 (QUOTE NIL))  
G0026 	(JUMPN 1 G0023)  
	(JRST 0 G0021)  
G0023 	(MOVEI 1 (QUOTE NIL))  
	(POPJ P)  
	NIL  
 
(LAP RESTART SUBR)  
	(JSP 6 SPECBIND)  
	(0 0 (SPECIAL X))  
	(0 0 (SPECIAL Y))  
	(0 0 (SPECIAL O))  
	(PUSH P (C 0 0 (QUOTE NIL) 0))  
	(PUSH P (C 0 0 (QUOTE NIL) 0))  
G0004 	(MOVEI 1 (QUOTE "WHAT FILE DO YOU WANT TO TAKE WORDS FROM?"))  
	(CALL 1 (E PRIN))  
	(MOVEI 1 (QUOTE ((RESTARTG0005) T)))  
	(CALL 17 (E ERRSET))  
	(CALL 1 (E ATOM))  
	(JUMPE 1 G0052)  
	(MOVEI 1 (QUOTE "INPUT FILE DOES NOT EXIST."))  
	(CALL 1 (E PRIN))  
	(JRST 0 G0004)  
G0052  
G0057  
G0011 	(MOVEI 1 (QUOTE "WHAT FILE DO YOU WANT TO PUT WORDS INTO?"))  
	(CALL 1 (E PRIN))  
	(MOVEI 1 (QUOTE ((RESTARTG0012) NIL)))  
	(CALL 17 (E ERRSET))  
	(MOVEM 1 -1 P)  
	(JUMPE 1 G0061)  
	(MOVEI 1 (QUOTE "OUTPUT FILE ALREADY EXISTS.  REPLACE? (Y OR N)"))  
	(CALL 1 (E PRIN))  
	(CALL 0 (E READ))  
	(MOVEI 2 (QUOTE Y))  
	(CALL 2 (E NEQUAL))  
	(MOVEM 1 -1 P)  
	(JRST 0 G0060)  
G0061  
G0066  
G0060 	(MOVE 1 -1 P)  
	(JUMPN 1 G0011)  
G0069 	(MOVE 1 (SPECIAL O))  
	(CALL 1 (E NCONS))  
	(MOVEI 2 (QUOTE DSK:))  
	(CALL 2 (E XCONS))  
	(MOVEI 2 (QUOTE BAZ))  
	(CALL 2 (E XCONS))  
	(CALL 17 (E OUTPUT))  
	(MOVEI 1 (QUOTE "FOR EACH LINE PRINTED, TYPE EITHER <LINE> OR <ALT> OR <RETURN>"))  
	(CALL 1 (E PRIN))  
	(MOVEI 1 (QUOTE " <LINE> MEANS KEEP THE LINE."))  
	(CALL 1 (E PRIN))  
	(MOVEI 1 (QUOTE " <ALT> MEANS DISCARD THE LINE."))  
	(CALL 1 (E PRINC))  
	(CALL 1 (E TERPRI))  
	(MOVEI 1 (QUOTE " <RETURN> WILL DISCARD THE LINE AND THEN CLOSE THE OUTPUT FILE."))  
	(CALL 1 (E PRIN))  
	(CALL 1 (E TERPRI))  
	(PUSH P (C 0 0 (QUOTE NIL) 0))  
G0018 	(CALL 0 (E TYI))  
	(MOVEM 1 -2 P)  
	(MOVEM 1 0 P)  
	(MOVEI 2 (QUOTE 12))  
	(MOVE 1 -2 P)  
	(CALL 2 (E EQUAL))  
	(JUMPN 1 G0087)  
	(MOVEI 2 (QUOTE 175))  
	(MOVE 1 -2 P)  
	(CALL 2 (E EQUAL))  
	(JUMPE 1 G0086)  
G0087 	(MOVE 1 0 P)  
	(JRST 0 G0081)  
G0086 	(JRST 0 G0018)  
G0081 	(SUB P (C 0 0 1 1))  
G0019 	(MOVEI 2 (QUOTE NIL))  
	(MOVEI 1 (QUOTE FOO))  
	(CALL 2 (E INC))  
	(CLEARM 1 (SPECIAL X))  
	(MOVEI 1 (QUOTE ((RESTARTG0020) T)))  
	(CALL 17 (E ERRSET))  
	(CALL 1 (E ATOM))  
	(JUMPN 1 G0045)  
	(MOVE 1 (SPECIAL X))  
	(CALL 1 (E REVERSE))  
	(MOVEM 1 (SPECIAL X))  
G0096 	(MOVEI 2 (QUOTE NIL))  
	(MOVE 1 2)  
	(CALL 2 (E INC))  
	(PUSH P (SPECIAL X))  
	(PUSH P (C 0 0 (QUOTE NIL) 0))  
	(PUSH P (C 0 0 (QUOTE NIL) 0))  
G0040 	(MOVE 1 -2 P)  
	(JUMPN 1 G0104)  
	(MOVE 1 0 P)  
	(JRST 0 G0100)  
G0104  
G0105 	(HLRZ@ 1 -2 P)  
	(MOVEM 1 -1 P)  
	(CALL 1 (E TYO))  
	(MOVEM 1 0 P)  
	(HRRZ@ 1 -2 P)  
	(MOVEM 1 -2 P)  
	(JRST 0 G0040)  
G0100 	(SUB P (C 0 0 3 3))  
	(CALL 0 (E TYI))  
	(MOVEI 2 (QUOTE 15))  
	(MOVEM 1 0 P)  
	(CALL 2 (E EQUAL))  
	(JUMPE 1 G0113)  
	(MOVEI 2 (QUOTE NIL))  
	(MOVEI 1 (QUOTE FOO))  
	(CALL 2 (E INC))  
	(MOVEI 2 (QUOTE T))  
	(MOVEI 1 (QUOTE NIL))  
	(CALL 2 (E INC))  
	(JRST 0 G0046)  
G0113  
G0119 	(MOVEI 2 (QUOTE 12))  
	(MOVE 1 0 P)  
	(CALL 2 (E EQUAL))  
	(JUMPE 1 G0122)  
	(MOVEI 2 (QUOTE NIL))  
	(MOVEI 1 (QUOTE BAZ))  
	(CALL 2 (E OUTC))  
	(PUSH P (SPECIAL X))  
	(PUSH P (C 0 0 (QUOTE NIL) 0))  
	(PUSH P (C 0 0 (QUOTE NIL) 0))  
G0044 	(MOVE 1 -2 P)  
	(JUMPN 1 G0132)  
	(MOVE 1 0 P)  
	(JRST 0 G0128)  
G0132  
G0133 	(HLRZ@ 1 -2 P)  
	(MOVEM 1 -1 P)  
	(CALL 1 (E TYO))  
	(MOVEM 1 0 P)  
	(HRRZ@ 1 -2 P)  
	(MOVEM 1 -2 P)  
	(JRST 0 G0044)  
G0128 	(SUB P (C 0 0 3 3))  
	(MOVEI 2 (QUOTE NIL))  
	(MOVE 1 2)  
	(CALL 2 (E OUTC))  
	(MOVEI 1 (QUOTE 15))  
	(CALL 1 (E TYO))  
	(MOVEI 1 (QUOTE NIL))  
	(JRST 0 G0121)  
G0122 	(MOVEI 1 (QUOTE NIL))  
	(CALL 1 (E TERPRI))  
G0143  
G0121 	(MOVEI 1 (QUOTE NIL))  
	(CALL 1 (E TERPRI))  
	(JRST 0 G0019)  
G0045 	(MOVEI 1 (QUOTE "INPUT LIST EXHAUSTED"))  
	(CALL 1 (E PRIN))  
G0046 	(MOVEI 1 (QUOTE "END OF SELECTION"))  
	(CALL 1 (E PRIN))  
	(MOVEI 2 (QUOTE NIL))  
	(MOVEI 1 (QUOTE BAZ))  
	(CALL 2 (E OUTC))  
	(MOVEI 2 (QUOTE T))  
	(MOVEI 1 (QUOTE NIL))  
	(CALL 2 (E OUTC))  
	(MOVEI 1 (QUOTE NIL))  
	(SUB P (C 0 0 2 2))  
	(JRST 0 SPECSTR)  
	NIL